inherited fmPodotch_Spisanie: TfmPodotch_Spisanie
  Left = 502
  Top = 204
  Width = 1036
  Height = 660
  Caption = #1060#1086#1088#1084#1072#1083#1080#1079#1072#1094#1080#1103' '#1088#1072#1089#1093#1086#1076#1085#1086#1075#1086' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  Constraints.MinHeight = 645
  Constraints.MinWidth = 985
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 606
    Width = 1028
  end
  inherited Panel1: TPanel
    Width = 1028
    inherited BitBtn1: TBitBtn
      Left = 858
    end
    inherited BitBtn2: TBitBtn
      Left = 946
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 45
    Width = 1028
    Height = 204
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label4: TLabel
      Left = 12
      Top = 9
      Width = 66
      Height = 13
      Caption = #1057#1091#1084#1084#1072', '#1088#1091#1073'.*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 166
      Top = 8
      Width = 32
      Height = 13
      Caption = #1044#1072#1090#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 600
      Top = 9
      Width = 93
      Height = 13
      Caption = #1041#1072#1083#1072#1085#1089' '#1087#1086#1076#1086#1090#1095#1077#1090#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 765
      Top = 11
      Width = 62
      Height = 13
      Caption = #8470' '#1089#1082#1074#1086#1079#1085#1086#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 922
      Top = 11
      Width = 84
      Height = 13
      Caption = #8470' '#1087#1086#1076#1086#1090#1095'. '#1083#1080#1094#1072
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 908
      Top = 25
      Width = 10
      Height = 33
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -27
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 328
      Top = 7
      Width = 82
      Height = 13
      Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 8
      Top = 59
      Width = 92
      Height = 13
      Caption = #1054#1082#1072#1079#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075'*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 484
      Top = 9
      Width = 57
      Height = 13
      Caption = #1053#1086#1084#1077#1088' '#1076#1086#1082'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 8
      Top = 175
      Width = 190
      Height = 13
      Caption = '* - '#1086#1073#1103#1079#1072#1090#1077#1083#1100#1085#1099#1077' '#1082' '#1079#1072#1087#1086#1083#1085#1077#1085#1080#1102' '#1087#1086#1083#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 600
      Top = 71
      Width = 67
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object edCSAMOUNT: TcxDBTextEdit
      Left = 9
      Top = 26
      DataBinding.DataField = 'RPSUMMA'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 0
      Width = 143
    end
    object eRSDATE: TcxDBDateEdit
      Left = 166
      Top = 26
      DataBinding.DataField = 'RPDATE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.SaveTime = False
      Properties.ShowTime = False
      Properties.WeekNumbers = True
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 1
      Width = 151
    end
    object eBalance: TcxTextEdit
      Left = 601
      Top = 27
      TabStop = False
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = True
      Style.Color = clSkyBlue
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 5
      Width = 142
    end
    object edRPID: TcxDBTextEdit
      Left = 763
      Top = 28
      DataBinding.DataField = 'RPID'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.IncrementalSearch = False
      Properties.ReadOnly = True
      Style.Color = clSkyBlue
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 6
      Width = 144
    end
    object edPL: TcxTextEdit
      Left = 921
      Top = 28
      TabStop = False
      ParentFont = False
      Properties.Alignment.Horz = taRightJustify
      Properties.ReadOnly = True
      Style.Color = clSkyBlue
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 7
      Width = 90
    end
    object lcbTypeDoc: TcxDBLookupComboBox
      Left = 328
      Top = 26
      DataBinding.DataField = 'SDID_DOC'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'SDID'
      Properties.ListColumns = <
        item
          Width = 100
          FieldName = 'SDNAME'
        end>
      Properties.ListOptions.ShowHeader = False
      Properties.ListSource = dsSDPodtv_doc
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 2
      Width = 145
    end
    object beOkazatel: TcxButtonEdit
      Left = 8
      Top = 76
      ParentFont = False
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 4
      Width = 577
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 481
      Top = 26
      DataBinding.DataField = 'RPDOCNUM'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 3
      Width = 104
    end
    object cxDBMemo1: TcxDBMemo
      Left = 600
      Top = 88
      DataBinding.DataField = 'RPNOTE'
      DataBinding.DataSource = dlgDS
      Style.LookAndFeel.SkinName = 'Office2007Blue'
      Style.Shadow = True
      StyleDisabled.LookAndFeel.SkinName = 'Office2007Blue'
      StyleFocused.LookAndFeel.SkinName = 'Office2007Blue'
      StyleHot.LookAndFeel.SkinName = 'Office2007Blue'
      TabOrder = 8
      Height = 105
      Width = 409
    end
  end
  object dbgPS: TcxGrid [3]
    Left = 0
    Top = 275
    Width = 561
    Height = 331
    Align = alLeft
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    LookAndFeel.SkinName = 'Office2007Blue'
    object tvPS: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dsRPS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###0'
          Kind = skSum
          FieldName = 'RPSSUMMA'
          Column = tvPSRPSSUMMA
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Appending = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 3
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvPSSDNAME: TcxGridDBColumn
        Caption = #1058#1086#1074#1072#1088' '#1080#1083#1080' '#1091#1089#1083#1091#1075#1072
        DataBinding.FieldName = 'SDNAME'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = tvPSSDNAMEPropertiesButtonClick
        Width = 41
      end
      object tvPSSDID_ED_IZM: TcxGridDBColumn
        Caption = #1045#1076'. '#1080#1079#1084'.'
        DataBinding.FieldName = 'SDID_ED_IZM'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'SDID'
        Properties.ListColumns = <
          item
            Caption = #1045#1076'. '#1080#1079#1084#1077#1088'.'
            FieldName = 'SDNAME'
          end>
        Width = 20
      end
      object tvPSRPSCENA: TcxGridDBColumn
        Caption = #1062#1077#1085#1072
        DataBinding.FieldName = 'RPSCENA'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.OnEditValueChanged = tvPSRPSCENAPropertiesEditValueChanged
        Width = 20
      end
      object tvPSRPSKOL: TcxGridDBColumn
        Caption = #1050#1086#1083#1080#1095'.'
        DataBinding.FieldName = 'RPSKOL'
        PropertiesClassName = 'TcxCalcEditProperties'
        Properties.OnEditValueChanged = tvPSRPSCENAPropertiesEditValueChanged
        Width = 20
      end
      object tvPSRPSSUMMA: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072
        DataBinding.FieldName = 'RPSSUMMA'
        PropertiesClassName = 'TcxCalcEditProperties'
        Width = 46
      end
      object tvPSPREDOSTAVIL: TcxGridDBColumn
        Caption = #1050#1090#1086' '#1087#1088#1077#1076#1086#1089#1090#1072#1074#1080#1083' '#1091#1089#1083#1091#1075#1091
        DataBinding.FieldName = 'PREDOSTAVIL'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end>
        Properties.ReadOnly = True
        Width = 86
      end
      object tvPSRPSSPEEDOMETR: TcxGridDBColumn
        Caption = #1055#1088#1086#1073#1077#1075' '#1072#1074#1090#1086
        DataBinding.FieldName = 'RPSSPEEDOMETR'
        Width = 88
      end
      object tvPSRPSNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'RPSNOTE'
        Width = 55
      end
      object tvPSPOTREBITEL_OBJECT: TcxGridDBColumn
        Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077'/'#1086#1073#1098#1077#1082#1090
        DataBinding.FieldName = 'POTREBITEL_OBJECT'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = tvPSPOTREBITEL_OBJECTPropertiesButtonClick
        Width = 76
      end
      object tvPSPOTREBITEL_FIO: TcxGridDBColumn
        Caption = #1055#1086#1090#1088#1077#1073#1080#1090#1077#1083#1100' '#1080#1079' '#1096#1090#1072#1090#1085#1086#1075#1086' '#1088#1072#1089#1087#1080#1089#1072#1085#1080#1103
        DataBinding.FieldName = 'POTREBITEL_FIO'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = tvPSPOTREBITEL_FIOPropertiesButtonClick
        Width = 34
      end
      object tvPSSTATJA_RASHODOV: TcxGridDBColumn
        Caption = #1057#1090#1072#1090#1100#1103' '#1088#1072#1089#1093#1086#1076#1086#1074
        DataBinding.FieldName = 'STATJA_RASHODOV'
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = tvPSSTATJA_RASHODOVPropertiesButtonClick
        Width = 22
      end
      object tvPSVESORV: TcxGridDBColumn
        Caption = #1042#1077#1089'/V'
        DataBinding.FieldName = 'VESORV'
        Width = 39
      end
    end
    object dbgPSLevel1: TcxGridLevel
      GridView = tvPS
    end
  end
  object Panel2: TPanel [4]
    Left = 569
    Top = 275
    Width = 459
    Height = 331
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 4
    object PdfViewer1: TPdfViewer
      Left = 0
      Top = 25
      Width = 459
      Height = 306
      Align = alClient
      About = 'Synactis PDF Viewer version 1.0'
      AutoOpen = True
      Copies = 1
      EndPage = 0
      FitMode = vmFitBoxHorz
      LayoutMode = lmDontCare
      PageMode = pmStandard
      ShowPrintDialog = True
      ShowScrollBars = True
      ShowToolBar = False
      ShrinkToMargins = True
      StartPage = 1
    end
    object cxButton1: TcxButton
      Left = 0
      Top = 0
      Width = 459
      Height = 25
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100'/'#1047#1072#1084#1077#1085#1080#1090#1100' '#1082#1086#1087#1080#1102' '#1080#1079' '#1093#1088#1072#1085#1080#1083#1080#1097#1072
      TabOrder = 1
      OnClick = cxButton1Click
      Align = alTop
      LookAndFeel.SkinName = 'Office2007Blue'
    end
  end
  object dxBarDockControl1: TdxBarDockControl [5]
    Left = 0
    Top = 249
    Width = 1028
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object cxSplitter1: TcxSplitter [6]
    Left = 561
    Top = 275
    Width = 8
    Height = 331
    HotZoneClassName = 'TcxMediaPlayer9Style'
    Control = dbgPS
  end
  object qRPS: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qRPSAfterInsert
    CachedUpdates = True
    DataSource = dlgDS
    SQL.Strings = (
      
        'SELECT RPS.*, SD.SDNAME, (COALESCE(jl.JLOPF,'#39' '#39')||'#39' '#39'||'#39'"'#39'||JL.J' +
        'LEGALNAME||'#39'"'#39')  AS predostavil,'
      'sd4.SDNAME AS potrebitel_object,'
      'IIF (P1.PID IS NOT NULL,'
      
        'p1.plastname || '#39' '#39' || SUBSTRING(p1.pname FROM 1 FOR 1) || '#39'. '#39' ' +
        '|| COALESCE(SUBSTRING(p1.ppatronymic FROM 1 FOR 1) || '#39'.'#39', '#39' '#39'),'
      'COALESCE(jl1.JLOPF,'#39' '#39')||'#39' '#39'||'#39'"'#39'||JL1.JLEGALNAME||'#39'"'#39
      ') AS potrebitel_fio,'
      'sd5.SDNAME AS statja_rashodov'
      'FROM RP_SERVICES RPS'
      'INNER JOIN RASPRED_PODOTCH rp ON rp.RPID = rps.RPID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = RPS.SDID'
      
        'LEFT OUTER JOIN SYS_DIC SD4 ON SD4.SDID = RPS.SDID_POTREBITEL_OB' +
        'JECT'
      
        'LEFT OUTER JOIN SYS_DIC SD5 ON SD5.SDID = RPS.SDID_STATJA_RASHOD' +
        'OV'
      'LEFT OUTER JOIN DOLJNOST d ON d.DOLID = RPS.DOLID_POTREBITEL'
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = d.PID'
      'LEFT OUTER JOIN JURLITSA jl ON jl.JLID = RP.JLID'
      'LEFT OUTER JOIN JURLITSA jl1 ON jl1.JLID = RPS.JLID_POTREBITEL'
      'WHERE RPS.RPID = :RPID')
    UpdateObject = quRPS
    GeneratorField.Field = 'RPSID'
    GeneratorField.Generator = 'GEN_RP_SERVICES_ID'
    Left = 256
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RPID'
        ParamType = ptUnknown
      end>
    object qRPSRPSID: TIntegerField
      FieldName = 'RPSID'
      Origin = '"RP_SERVICES"."RPSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qRPSRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"RP_SERVICES"."RPID"'
    end
    object qRPSRPSSUMMA: TIBBCDField
      FieldName = 'RPSSUMMA'
      Origin = '"RP_SERVICES"."RPSSUMMA"'
      Precision = 18
      Size = 2
    end
    object qRPSRPSUSERENTER: TIBStringField
      FieldName = 'RPSUSERENTER'
      Origin = '"RP_SERVICES"."RPSUSERENTER"'
      Size = 40
    end
    object qRPSRPSTIMEENTER: TDateTimeField
      FieldName = 'RPSTIMEENTER'
      Origin = '"RP_SERVICES"."RPSTIMEENTER"'
    end
    object qRPSRPSUSEREDIT: TIBStringField
      FieldName = 'RPSUSEREDIT'
      Origin = '"RP_SERVICES"."RPSUSEREDIT"'
      Size = 40
    end
    object qRPSRPSTIMEEDIT: TDateTimeField
      FieldName = 'RPSTIMEEDIT'
      Origin = '"RP_SERVICES"."RPSTIMEEDIT"'
    end
    object qRPSSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"RP_SERVICES"."SDID"'
    end
    object qRPSSDID_ED_IZM: TIntegerField
      FieldName = 'SDID_ED_IZM'
      Origin = '"RP_SERVICES"."SDID_ED_IZM"'
    end
    object qRPSRPSKOL: TIBBCDField
      FieldName = 'RPSKOL'
      Origin = '"RP_SERVICES"."RPSKOL"'
      Precision = 18
      Size = 2
    end
    object qRPSRPSCENA: TIBBCDField
      FieldName = 'RPSCENA'
      Origin = '"RP_SERVICES"."RPSCENA"'
      Precision = 18
      Size = 2
    end
    object qRPSRPSNOTE: TIBStringField
      FieldName = 'RPSNOTE'
      Origin = '"RP_SERVICES"."RPSNOTE"'
      Size = 255
    end
    object qRPSRPSSPEEDOMETR: TIBBCDField
      FieldName = 'RPSSPEEDOMETR'
      Origin = '"RP_SERVICES"."RPSSPEEDOMETR"'
      Precision = 18
      Size = 2
    end
    object qRPSDOLID_POTREBITEL: TIntegerField
      FieldName = 'DOLID_POTREBITEL'
      Origin = '"RP_SERVICES"."DOLID_POTREBITEL"'
    end
    object qRPSJLID_POTREBITEL: TIntegerField
      FieldName = 'JLID_POTREBITEL'
      Origin = '"RP_SERVICES"."JLID_POTREBITEL"'
    end
    object qRPSSDID_POTREBITEL_OBJECT: TIntegerField
      FieldName = 'SDID_POTREBITEL_OBJECT'
      Origin = '"RP_SERVICES"."SDID_POTREBITEL_OBJECT"'
    end
    object qRPSSDID_STATJA_RASHODOV: TIntegerField
      FieldName = 'SDID_STATJA_RASHODOV'
      Origin = '"RP_SERVICES"."SDID_STATJA_RASHODOV"'
    end
    object qRPSRPSDATEPROD: TDateField
      FieldName = 'RPSDATEPROD'
      Origin = '"RP_SERVICES"."RPSDATEPROD"'
    end
    object qRPSRPSDATEPRODEND: TDateField
      FieldName = 'RPSDATEPRODEND'
      Origin = '"RP_SERVICES"."RPSDATEPRODEND"'
    end
    object qRPSRPSISDELETE: TIntegerField
      FieldName = 'RPSISDELETE'
      Origin = '"RP_SERVICES"."RPSISDELETE"'
    end
    object qRPSVESORV: TIBBCDField
      FieldName = 'VESORV'
      Origin = '"RP_SERVICES"."VESORV"'
      Precision = 18
      Size = 2
    end
    object qRPSSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qRPSPREDOSTAVIL: TIBStringField
      FieldName = 'PREDOSTAVIL'
      ProviderFlags = []
      Size = 268
    end
    object qRPSPOTREBITEL_OBJECT: TIBStringField
      FieldName = 'POTREBITEL_OBJECT'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qRPSPOTREBITEL_FIO: TIBStringField
      FieldName = 'POTREBITEL_FIO'
      ProviderFlags = []
      Size = 769
    end
    object qRPSSTATJA_RASHODOV: TIBStringField
      FieldName = 'STATJA_RASHODOV'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qRPSRPSSDID_TYPE: TIntegerField
      FieldName = 'RPSSDID_TYPE'
      Origin = '"RP_SERVICES"."RPSSDID_TYPE"'
    end
  end
  object quRPS: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  RPSID,'
      '  RPID,'
      '  RPSUSERENTER,'
      '  RPSTIMEENTER,'
      '  RPSUSEREDIT,'
      '  RPSTIMEEDIT,'
      '  SDID,'
      '  SDID_ED_IZM,'
      '  RPSKOL,'
      '  RPSCENA,'
      '  RPSSUMMA,'
      '  RPSNOTE,'
      '  RPSSPEEDOMETR,'
      '  DOLID_POTREBITEL,'
      '  JLID_POTREBITEL,'
      '  SDID_POTREBITEL_OBJECT,'
      '  SDID_STATJA_RASHODOV,'
      '  RPSDATEPROD,'
      '  RPSDATEPRODEND,'
      '  RPSISDELETE,'
      '  VESORV,'
      '  RPSSDID_TYPE,'
      '  SDNAME,'
      '  PREDOSTAVIL,'
      '  POTREBITEL_OBJECT,'
      '  POTREBITEL_FIO,'
      '  STATJA_RASHODOV'
      'from RP_SERVICES '
      'where'
      '  RPSID = :RPSID')
    ModifySQL.Strings = (
      'update RP_SERVICES'
      'set'
      '  DOLID_POTREBITEL = :DOLID_POTREBITEL,'
      '  JLID_POTREBITEL = :JLID_POTREBITEL,'
      '  RPID = :RPID,'
      '  RPSCENA = :RPSCENA,'
      '  RPSDATEPROD = :RPSDATEPROD,'
      '  RPSDATEPRODEND = :RPSDATEPRODEND,'
      '  RPSID = :RPSID,'
      '  RPSISDELETE = :RPSISDELETE,'
      '  RPSKOL = :RPSKOL,'
      '  RPSNOTE = :RPSNOTE,'
      '  RPSSDID_TYPE = :RPSSDID_TYPE,'
      '  RPSSPEEDOMETR = :RPSSPEEDOMETR,'
      '  RPSSUMMA = :RPSSUMMA,'
      '  SDID = :SDID,'
      '  SDID_ED_IZM = :SDID_ED_IZM,'
      '  SDID_POTREBITEL_OBJECT = :SDID_POTREBITEL_OBJECT,'
      '  SDID_STATJA_RASHODOV = :SDID_STATJA_RASHODOV,'
      '  VESORV = :VESORV'
      'where'
      '  RPSID = :OLD_RPSID')
    InsertSQL.Strings = (
      'insert into RP_SERVICES'
      
        '  (DOLID_POTREBITEL, JLID_POTREBITEL, RPID, RPSCENA, RPSDATEPROD' +
        ', RPSDATEPRODEND, '
      
        '   RPSID, RPSISDELETE, RPSKOL, RPSNOTE, RPSSDID_TYPE, RPSSPEEDOM' +
        'ETR, RPSSUMMA, '
      
        '   SDID, SDID_ED_IZM, SDID_POTREBITEL_OBJECT, SDID_STATJA_RASHOD' +
        'OV, VESORV)'
      'values'
      
        '  (:DOLID_POTREBITEL, :JLID_POTREBITEL, :RPID, :RPSCENA, :RPSDAT' +
        'EPROD, '
      
        '   :RPSDATEPRODEND, :RPSID, :RPSISDELETE, :RPSKOL, :RPSNOTE, :RP' +
        'SSDID_TYPE, '
      
        '   :RPSSPEEDOMETR, :RPSSUMMA, :SDID, :SDID_ED_IZM, :SDID_POTREBI' +
        'TEL_OBJECT, '
      '   :SDID_STATJA_RASHODOV, :VESORV)')
    DeleteSQL.Strings = (
      'update RP_SERVICES'
      'set'
      '  RPSISDELETE = 1'
      'where'
      '  RPSID = :OLD_RPSID')
    Left = 296
    Top = 232
  end
  object dsRPS: TDataSource
    DataSet = qRPS
    Left = 208
    Top = 232
  end
  object dsSDPodtv_doc: TDataSource
    DataSet = qSDPodtv_doc
    Left = 416
    Top = 56
  end
  object qSDPodtv_doc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = 21'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid'
      'order by 1')
    GeneratorField.Field = 'SDID'
    Left = 432
    Top = 40
    object IntegerField4: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object IntegerField5: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object IBStringField2: TIBStringField
      DisplayLabel = #1069#1083#1077#1084#1077#1085#1090
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object IntegerField6: TIntegerField
      DisplayLabel = #1059#1076#1072#1083#1080#1090#1100'?'
      FieldName = 'SDISDELETE'
      Origin = '"SYS_DIC"."SDISDELETE"'
    end
  end
  object qSotr: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      'INNER JOIN'
      '('
      'SELECT t1.sdid'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 1470'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'WHERE t1.sdid <> 1783'
      ') as sotr on sotr.sdid = ps.SDID'
      'WHERE P.PISDELETE IS NULL'
      'UNION'
      'SELECT FIRST 1 NULL AS PID, NULL AS PP,'
      '    NULL AS SDNAME, NULL AS SDID'
      'FROM PEOPLE P'
      'ORDER BY 2'
      '')
    GeneratorField.Field = 'RPID'
    Left = 136
    Top = 229
    object IntegerField7: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object IBStringField3: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object IBStringField4: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object IntegerField8: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
  end
  object dsSotr: TDataSource
    DataSet = qSotr
    Left = 104
    Top = 229
  end
  object qUserGenSelect: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT COALESCE(PP.PPNUM, 0) as pers_num'
      'FROM PERSON_PODOTCH PP'
      'WHERE PP.PP_ID = :PID AND PP.PPTYPE = 4')
    GeneratorField.Field = 'CSID'
    Left = 648
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
    object qUserGenSelectPERS_NUM: TIntegerField
      FieldName = 'PERS_NUM'
      ProviderFlags = []
    end
  end
  object qUserGenSet: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'UPDATE PERSON_PODOTCH PP SET PP.PPNUM = :PPNUM'
      'WHERE  PP.PP_ID = :PID AND PP.PPTYPE = 4')
    GeneratorField.Field = 'CSID'
    Left = 696
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PPNUM'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PID'
        ParamType = ptUnknown
      end>
  end
  object dsUserGenSelect: TDataSource
    DataSet = qUserGenSelect
    OnDataChange = dsUserGenSelectDataChange
    Left = 608
    Top = 8
  end
  object qBalance: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT SUM(sel.balance1) AS balance'
      'FROM'
      '('
      'SELECT  rp.rpsumma AS balance1'
      'FROM raspred_podotch rp'
      'INNER JOIN person_podotch pp ON pp.ppid = rp.ppid_to'
      'WHERE pp.PPID = :ppid AND'
      '      rp.rpisdelete IS NULL'
      '      AND rp.RPDATE >= :date'
      'UNION ALL'
      'SELECT'
      '       ((-1) * rp.rpsumma) AS balance1'
      'FROM raspred_podotch rp'
      'INNER JOIN person_podotch pp ON pp.ppid = rp.ppid'
      ''
      'WHERE pp.PPID = :ppid AND'
      '      rp.rpisdelete IS NULL'
      '      AND rp.RPDATE >= :date'
      ''
      ') AS sel')
    Left = 496
    Top = 8
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ppid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'ppid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date'
        ParamType = ptUnknown
      end>
    object qBalanceBALANCE: TIBBCDField
      FieldName = 'BALANCE'
      ProviderFlags = []
      Precision = 18
      Size = 2
    end
  end
  object qCommon: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT rp.*'
      'FROM RASPRED_PODOTCH rp'
      'WHERE rp.RPISDELETE IS NULL'
      '    AND rp.RPSDID = :RPSDID')
    GeneratorField.Field = 'RPID'
    GeneratorField.Generator = 'GEN_RASPRED_PODOTCH_ID'
    Left = 296
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RPSDID'
        ParamType = ptUnknown
        Size = 4
      end>
    object qCommonRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"RASPRED_PODOTCH"."RPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qCommonRPDATE: TDateField
      FieldName = 'RPDATE'
      Origin = '"RASPRED_PODOTCH"."RPDATE"'
    end
    object qCommonPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"RASPRED_PODOTCH"."PPID"'
    end
    object qCommonRPSUMMA: TIBBCDField
      FieldName = 'RPSUMMA'
      Origin = '"RASPRED_PODOTCH"."RPSUMMA"'
      Precision = 18
      Size = 2
    end
    object qCommonRPUSERENTER: TIBStringField
      FieldName = 'RPUSERENTER'
      Origin = '"RASPRED_PODOTCH"."RPUSERENTER"'
      Size = 40
    end
    object qCommonRPTIMEENTER: TDateTimeField
      FieldName = 'RPTIMEENTER'
      Origin = '"RASPRED_PODOTCH"."RPTIMEENTER"'
    end
    object qCommonRPUSEREDIT: TIBStringField
      FieldName = 'RPUSEREDIT'
      Origin = '"RASPRED_PODOTCH"."RPUSEREDIT"'
      Size = 40
    end
    object qCommonRPTIMEEDIT: TDateTimeField
      FieldName = 'RPTIMEEDIT'
      Origin = '"RASPRED_PODOTCH"."RPTIMEEDIT"'
    end
    object qCommonPPID_TO: TIntegerField
      FieldName = 'PPID_TO'
      Origin = '"RASPRED_PODOTCH"."PPID_TO"'
    end
    object qCommonRPTYPE: TIntegerField
      FieldName = 'RPTYPE'
      Origin = '"RASPRED_PODOTCH"."RPTYPE"'
    end
    object qCommonRPISDELETE: TIntegerField
      FieldName = 'RPISDELETE'
      Origin = '"RASPRED_PODOTCH"."RPISDELETE"'
    end
    object qCommonCSID: TSmallintField
      FieldName = 'CSID'
      Origin = '"RASPRED_PODOTCH"."CSID"'
    end
    object qCommonRPNOTE: TIBStringField
      FieldName = 'RPNOTE'
      Origin = '"RASPRED_PODOTCH"."RPNOTE"'
      Size = 255
    end
    object qCommonRPFORM: TIntegerField
      FieldName = 'RPFORM'
      Origin = '"RASPRED_PODOTCH"."RPFORM"'
    end
    object qCommonBPID: TIntegerField
      FieldName = 'BPID'
      Origin = '"RASPRED_PODOTCH"."BPID"'
    end
    object qCommonSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"RASPRED_PODOTCH"."SDID"'
    end
    object qCommonPNUM: TIntegerField
      FieldName = 'PNUM'
      Origin = '"RASPRED_PODOTCH"."PNUM"'
    end
    object qCommonSIDID: TIntegerField
      FieldName = 'SIDID'
      Origin = '"RASPRED_PODOTCH"."SIDID"'
    end
    object qCommonJLID: TIntegerField
      FieldName = 'JLID'
      Origin = '"RASPRED_PODOTCH"."JLID"'
    end
    object qCommonSDID_DOC: TIntegerField
      FieldName = 'SDID_DOC'
      Origin = '"RASPRED_PODOTCH"."SDID_DOC"'
    end
    object qCommonRPSDID: TIntegerField
      FieldName = 'RPSDID'
      Origin = '"RASPRED_PODOTCH"."RPSDID"'
    end
    object qCommonRPDOCNUM: TIBStringField
      FieldName = 'RPDOCNUM'
      Origin = '"RASPRED_PODOTCH"."RPDOCNUM"'
      Size = 40
    end
    object qCommonRPDOCDATE: TDateTimeField
      FieldName = 'RPDOCDATE'
      Origin = '"RASPRED_PODOTCH"."RPDOCDATE"'
    end
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    UseF10ForMenu = False
    UseSystemFont = True
    Left = 392
    Top = 343
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 551
      FloatTop = 183
      FloatClientWidth = 51
      FloatClientHeight = 44
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbadd'
        end
        item
          Visible = True
          ItemName = 'bbedit'
        end
        item
          Visible = True
          ItemName = 'bbdel'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarButton1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 57
    end
    object dxBarButton2: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 41
    end
    object dxBarButton3: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 10
    end
    object bbnewjl: TdxBarButton
      Caption = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Category = 0
      Hint = #1053#1086#1074#1086#1077' '#1102#1088#1083#1080#1094#1086
      Visible = ivNever
      ImageIndex = 40
      PaintStyle = psCaptionGlyph
    end
    object dxBarButton4: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
      ImageIndex = 54
    end
    object bbadd: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 57
      OnClick = bbaddClick
    end
    object bbedit: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbeditClick
    end
    object bbdel: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Visible = ivAlways
      ImageIndex = 10
      OnClick = bbdelClick
    end
    object cbShowDoc: TcxBarEditItem
      Caption = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Category = 0
      Hint = #1054#1090#1082#1083#1102#1095#1080#1090#1100' '#1087#1088#1086#1089#1084#1086#1090#1088
      Visible = ivAlways
      ShowCaption = True
      Width = 100
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.Alignment = taLeftJustify
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      InternalEditValue = 1
    end
  end
end
